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 |
All times are GMT +1. The time now is 02:22 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com