Runing two macros triggered by a button
If you only use cellinfooter when you click that button:
MACRO 1 (triggered by button)
Sub nametab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("G1").Value
Next i
On Error GoTo 0
With ActiveSheet
.PageSetup.CenterFooter = .Range("G1").Text
End With
End Sub
If you want to be able to use cellinfooter independently of the button:
MACRO 1 (triggered by button)
Sub nametab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("G1").Value
Next i
On Error GoTo 0
call cellinfooter
End Sub
WANT TO ADD THE FOLLOWING TO TRIGGER AT THE SAME TIME
Sub CellInfooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("G1").Text
End With
End Sub
JackR wrote:
I have the first macro set-up to start when a button is clicked, I would like
bothe the macros to run when then button is clicked, any help would be great,
not real up on this macro stuff yet.
MACRO 1 (triggered by button)
Sub nametab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("G1").Value
Next i
On Error GoTo 0
End Sub
WANT TO ADD THE FOLLOWING TO TRIGGER AT THE SAME TIME
Sub CellInfooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("G1").Text
End With
End Sub
Thanks
--
Dave Peterson
|