Trigger a Macro

[morrisgr]

Hi.
The code below triggers a Macro on a SPECIFIC sheet............but I have 40 sheets. Can the code be altered to work on all of them?
Many thanks
Morris...........hopefully not a daft question this time

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
End Sub

 

[Dav3yRox]

Hi Morris,

Does your Macro names Macro1 have any specific sheet references contained within?

 

[morrisgr]

Hi.
It will have.
The info from each of the 40 sheets will be copied to a 'Summary' sheet. As data is entered each day to one of the 40 sheets, the macro will be triggered to copy the data to 'Summary', and the macro will read the previous last entry and add the new data to it.

Rgds
Morris

 

[Dav3yRox]

Could you pop a copy of your macro here please so I can have a look for you?

 

[morrisgr]

Ooops.
I've only just started this project so the macro is only basic but it should give you an idea of what I need.
Many thanks for your interest.
Morris

Sub Macro1()
membNumb = Application.InputBox("Enter a Membership number")
' this accesses the Members' sheet
Set Sh1 = Worksheets(membNumb)
Sh1.Activate
Range("A1:F1").Copy
Sheets("Summary").Activate
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Offset(LastRow + 1).Select
Selection.PasteSpecial Paste:=xlValues
End Sub