Changing display...

[Giggzz]

here's my code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect "keanu"
Sheet1.Range("A56").Offset(0, Range("A56", Range("V56").End(xlToLeft)).Columns.Count).Value = Format(Now, "dd/mm/yy hh:mm:ss")
ActiveSheet.Protect "keanu"
End Sub

The way the code is now the dates print across t he bottom of the sheet. How can a change the code so they will start at D51 to D56 then start again at F51 to F56? Thanks

 

[tactps]

Try:
Application.Goto Reference:="R51C4:R56C4,R51C6:R56C6"
Selection.Formula = (Now)
Selection.NumberFormat = "dd/mm/yy hh:mm:ss"

 

[Smitty]

Heya Giggzz,

It would help if you stuck to the same post. :wink:

http://www.mrexcel.com/board2/viewtopic.php?t=80551

Smitty