Sub addFooters()
    Dim targetFolder As String
    Dim fileName As String
    
    Dim currentWB As Workbook
    Dim currentWS As Worksheet
    
    targetFolder = GetFolder
    fileName = Dir(targetFolder & "\*.xlsx", vbNormal)
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    While fileName <> ""
        Set currentWB = Workbooks.Open(targetFolder & "\" & fileName)
        For Each currentWS In currentWB.Worksheets
            currentWS.PageSetup.CenterFooter = currentWB.FullName
        Next
        currentWB.Close savechanges:=True
        fileName = Dir()
    Wend
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub
 
Function GetFolder(Optional Title As String, Optional RootFolder As Variant) As String
On Error Resume Next
GetFolder = CreateObject("Shell.Application").BrowseForFolder(0, Title, 0, RootFolder).Items.Item.Path
End Function

for i = range("A65000").end(xlup).row  to 1 step -2
   rows(i).delete
next i

=VALUE(REPLACE(A1,FIND(".",A1,1),1,""))

REPLACE(A1,FIND(".",A1,1),1,"")

 Sub DeleteDecimalPoint()
  'Purpose: Checks each cell's value for a decimal point in a given
  'range and removes it if found. If no deimal point is found,the
  'cell value is left unchanged. This procedure runs on the currently
  'active worksheet.
  'Remarks: Change the range rData to fit your needs. So if the range
  'storing your data is B1 through J1000, change the "Set rData" statement to:
  'Set rData = Range("B1:J1000").
  'This procedure looks for and removes exactly one decimal point. If any cell
  'contains more than one decimal point then run it more than once.
'*********************************************************
  Dim oDecPoint As Object
  Dim rData As Range
  Dim rCell As Range
  Dim WSF As WorksheetFunction
'********************************************************
  Set rData = Range("A1:B5") 'Change this range as needed.
  Set WSF = WorksheetFunction
  On Error Resume Next
  With ActiveSheet
    For Each rCell In rData
      With WSF
        oDecPoint = .IsNumber(.Find(".", rCell))
        If oDecPoint = True Then
           rCell = .Replace(rCell, .Find(".", rCell), 1, "")
        Else
          'Continue looping until all cells are checked.
         End If
      End With
    Next rCell
  End With
End Sub