adding macors together

[kebodebo]

How can I add these 3 macros together as one? Thank You

Sub UnprotectAllSheets()
Dim x As Long


For x = 1 To Sheets.Count
Sheets(x).Unprotect
Next x


End Sub
______________________________________________________________
Sub REFRESH_TABLES()
'
' REFRESH_TABLES Macro
'


'
ActiveWorkbook.RefreshAll
End Sub
________________________________________________________
Sub ProtectAllSheets()
Dim x As Long

For x = 1 To Sheets.Count
Sheets(x).Protect
Next x

End Sub

 

[dispelthemyth]

Sub All()
Dim x As Integer


For x = 1 To Sheets.Count
Sheets(x).Unprotect
ActiveWorkbook.RefreshAll
Sheets(x).Protect
Next x


End Sub

 

[HaHoBe]

Hi, kebodebo,

create a master macro and call them from there:

Sub CallThemMacros()
UnprotectAllSheets
REFRESH_TABLES
ProtectAllSheets
End Sub

Or maybe just use one macro for all parts:

Sub OneBig()
Dim x As Long

For x = 1 To Sheets.Count
  Sheets(x).Unprotect
Next x

ActiveWorkbook.RefreshAll

For x = 1 To Sheets.Count
  Sheets(x).Protect
Next x
End Sub

Ciao,
Holger

 

[kebodebo]

Thank you very much