Steps not recording in a MACRO

[harwoodj]

I have a report I run daily and wanted a macro to use on the formatting of that report. There are numbers that show up as text and if I click convert to numbers it does not record in the macro. So I tried the keyboard shortcut ALT+Menu+C and that did not work either. Any ideas on how to get these steps to record in the MACRO? Thanks!

 

[Yongle]

here is a macro that converts "numbers stored as text" in A2 to A100 to numbers

Sub ConvertToNumbers()
    Dim rng As Range
    Set rng = ActiveSheet.Range("A2:A100")
    With rng
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

 

[harwoodj]

Sorry. I should have pasted my Macro so you can see where/what I need for the conversion to numbers.

Sub AROWSReport()
'
' AROWSReport Macro
' formating of workday exectuion report
'
' Keyboard Shortcut: Ctrl+a
'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select (AFTER THIS STEP IS WHERE I WANT TO CONVERT TO NUMBER)
ChDir _
"M:\MSG\145LRS\145LRS\(LGLO) Operations Compliance\3-RA\Resource Tracking\New Resource Tracker\2019\SOF"
ActiveWorkbook.SaveAs Filename:= _
"M:\MSG\145LRS\145LRS\(LGLO) Operations Compliance\3-RA\Resource Tracking\New Resource Tracker\2019\SOF\RAW AROWS.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Range("E4").Select
End Sub

 

[harwoodj]

Disregard. I got it working. Thank you so much!

 

[Yongle]

No problem

But try to remember to use code tags when posting code
- click on # icon above reply window, which adds code tags to the window

[ CODE ] and paste your code here [ /CODE ]

Hopefully this is what you want

Sub AROWSReport()
'
' AROWSReport Macro
' formating of workday exectuion report
'
' Keyboard Shortcut: Ctrl+a
'
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
[COLOR=#008000]    With Selection
        .NumberFormat = "General"
        .Value = .Value
    End With[/COLOR]
    ChDir _
        "M:\MSG\145LRS\145LRS\(LGLO) Operations Compliance\3-RA\Resource Tracking\New Resource Tracker\2019\SOF"
    ActiveWorkbook.SaveAs Filename:= _
        "M:\MSG\145LRS\145LRS\(LGLO) Operations Compliance\3-RA\Resource Tracking\New Resource Tracker\2019\SOF\RAW AROWS.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Range("E4").Select
End Sub