Whats wrong with this code?

  • Thread starter Thread starter Bob Vance
  • Start date Start date
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
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Slight change needed for Code! 3
Who can join these two VBA Codes together? 4
Slight change needed for my script 2
Excel help with Macro code in excel 1
Help to add Format to VBA Code! 10
insert a line 1
Select used range 2
Copy data that matches criteria in one worksheet to another worksh 1

Back
Top