Macros error

[emmmilyvb]

I’m very new to macros. I need to do it for my assessment I’m currently working on.

I’ve created a macro that needs to work across 3 sheets in my workbook. It works on 2 of them but the 3rd states “select method of range class failed” and I don’t know how to fix it. I’ve even tried re-importing the whole worksheet into my workbook to start again but the same error shows, only on this worksheet. Help pls

 

[footoo]

I’m very new to macros. I need to do it for my assessment I’m currently working on.

I’ve created a macro that needs to work across 3 sheets in my workbook. It works on 2 of them but the 3rd states “select method of range class failed” and I don’t know how to fix it. I’ve even tried re-importing the whole worksheet into my workbook to start again but the same error shows, only on this worksheet. Help pls

Post the macro, and indicate where the error happens.

 

[emmmilyvb]

Sub Cafe_Sales_Data()
'
' Cafe_Sales_Data Macro
'

'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2,B4:B21,C4:H4").Select
Range("C4").Activate
Selection.Font.Size = 12
Selection.Font.Size = 14
With Selection.Font
.Color = -1003520
.TintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlLeft
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Italic = True
Selection.Font.Italic = False
Selection.Font.Bold = True
Range("C5:H21").Select
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Range("B4:H21").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$4:$H$21"), , xlYes).Name = _
"Table3"
Range("Table3[#All]").Value
ActiveSheet.ListObjects("Table3").TableStyle = "TableStyleLight1"
Range("B17:H17,B19:C21").Select
Range("B19").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("D22").Select
End Sub

Above is the macro code (I wasn't sure what you were asking for, as I'm still new to it all). I tried to run the Macro again to show where the error was but now it doesn't even give me the option to run it at all. From memory it was on the section above that I have made bold.

 

[emmmilyvb]

Post the macro, and indicate where the error happens.

Sub Cafe_Sales_Data()
'
' Cafe_Sales_Data Macro
'

'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2,B4:B21,C4:H4").Select
Range("C4").Activate
Selection.Font.Size = 12
Selection.Font.Size = 14
With Selection.Font
.Color = -1003520
.TintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlLeft
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Italic = True
Selection.Font.Italic = False
Selection.Font.Bold = True
Range("C5:H21").Select
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Range("B4:H21").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$4:$H$21"), , xlYes).Name = _
"Table3"
Range("Table3[#All]").Value
ActiveSheet.ListObjects("Table3").TableStyle = "TableStyleLight1"
Range("B17:H17,B19:C21").Select
Range("B19").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("D22").Select
End Sub

Above is the macro code (I wasn't sure what you were asking for, as I'm still new to it all). I tried to run the Macro again to show where the error was but now it doesn't even give me the option to run it at all. From memory it was on the section above that I have made bold.
(I accidentally posted this as a reply to the thread, not to you. Everything's a mess tonight)

 

[footoo]

The Range("Table3[#All]").Value line is not a stand alone piece of code.
What are you trying to do with this line?
It's not doing anything - maybe you can delete it.