Sub StyleChange(strFile As String, SheetName As String)
Dim bk As Workbook
Dim sh As Worksheet
Set bk = Application.Workbooks.Open(strFile)
Set sh = bk.Worksheets(SheetName)
Application.FindFormat.NumberFormat = "@"
Application.ReplaceFormat.NumberFormat = "0.00"
sh.Range("A").Replace What:="", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
bk.Close True
End Sub