Whats wrong with this code?

B

Bob Vance

--
This works from a worksheet button:

Sub ShortActivity()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 2, .Column - 8).Select
Sheets("Sheet1").Select
Range("BC73:BK131").Select
Selection.Copy
Sheets("Invoices").Select
ActiveSheet.Paste



Thanks in advance.........Bob Vance
 
B

Bob Vance

Fixed it...Thanks

Sub ShortActivity()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 2, .Column - 8).Select
Sheets("Sheet1").Select
Range("BC73:BK131").Select
Selection.Copy
Sheets("Invoices").Select
ActiveSheet.Paste
End With
End Sub
 
Top