View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
lild lild is offline
external usenet poster
 
Posts: 1
Default Help.. need to change sheet name to whats in a cell?


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 Befo=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.


--
lild
------------------------------------------------------------------------
lild's Profile: http://www.excelforum.com/member.php...o&userid=29352
View this thread: http://www.excelforum.com/showthread...hreadid=490596