I am trying to write a Macros that will hide columns and uncheck a few drop downs. I have the macros recorded and when I run it all the data in the workbook disappears. Here is a sample of my code just curious to why this is happening. Thanks in advance
Sub Macro1()
'
' Macro1 Macro
' Excess Space
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Columns("A:A").Select
Range("A3").Activate
Selection.Delete Shift:=xlToLeft
Selection.NumberFormat = "0.00"
Selection.NumberFormat = "0.0"
Selection.NumberFormat = "0"
ActiveWindow.SmallScroll ToRight:=11
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=12, Criteria1:="=CMB", _
Operator:=xlOr, Criteria2:="=MTB"
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=15, Criteria1:="="
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=18, Criteria1:= _
"=Leased", Operator:=xlOr, Criteria2:="=Owned/Ground Lease"
Columns("S:S").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("T:T").Select
Selection.ColumnWidth = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
Columns("U:AI").Select
Selection.EntireColumn.Hidden = True
Columns("AK:AK").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-13
Columns("G:J").Select
Range("G3").Activate
Selection.EntireColumn.Hidden = True
Columns("L:P").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-5
End Sub
Bookmarks