L
lild
This is my macro so far... need it to change the sheet name to what's in
cell J8 or alternitivly, that days date. This is so that at the end of
each day a copy of the sheet is made with that days date bookings on
and the orignal sheet is cleared for the next day.
Sub dailymacro()
'
' dailymacro Macro
' This is the main macro. Does several tasks, copys days booking,
renames sheet to that days date, delete days booking ready for next day
and recolours tab to make it easier for navigation.
'
'
Sheets("TODAYS BOOKING").Select
Sheets("TODAYS BOOKING").copy Before:=Sheets(2)
Sheets("TODAYS BOOKING (2)").Select
Sheets("TODAYS BOOKING (2)").Move After:=Sheets(4)
Sheets("TODAYS BOOKING (2)").Select
ActiveWorkbook.Sheets("TODAYS BOOKING (2)").Tab.ColorIndex = 3
Range("J8").Select
*NEED IT TO CHANGE SHEET NAME TO J8 OR DATE HERE*
End Sub
If anyone can help me? or if you need more details just ask.
cell J8 or alternitivly, that days date. This is so that at the end of
each day a copy of the sheet is made with that days date bookings on
and the orignal sheet is cleared for the next day.
Sub dailymacro()
'
' dailymacro Macro
' This is the main macro. Does several tasks, copys days booking,
renames sheet to that days date, delete days booking ready for next day
and recolours tab to make it easier for navigation.
'
'
Sheets("TODAYS BOOKING").Select
Sheets("TODAYS BOOKING").copy Before:=Sheets(2)
Sheets("TODAYS BOOKING (2)").Select
Sheets("TODAYS BOOKING (2)").Move After:=Sheets(4)
Sheets("TODAYS BOOKING (2)").Select
ActiveWorkbook.Sheets("TODAYS BOOKING (2)").Tab.ColorIndex = 3
Range("J8").Select
*NEED IT TO CHANGE SHEET NAME TO J8 OR DATE HERE*
End Sub
If anyone can help me? or if you need more details just ask.