'I need to use Sheets("Sheet1). followed by a cell reference three times, so instead a declare that everything starting with a "." is preceeded by Sheets("Sheet1")
With Sheets("Sheet1").
'other wise this:
ActiveWorkbook.SaveAs Filename:="\\defthw9000osto.ww002.net\WTS-redirect$\FlexSm\.WW002\Desktop\Daily Work\" &.Range("A1").Value & " " & Format(.Range("B1"), "hh:mm") & " " & Range("A1").Value = Replace(Format(.Range("B1"), "dd/mm/yyyy"), "/", "-")
'Would be:-
ActiveWorkbook.SaveAs Filename:="\\defthw9000osto.ww002.net\WTS-redirect$\FlexSm\.WW002\Desktop\Daily Work\" & Sheets("Sheet1").Range("A1").Value & " " & Format(Sheets("Sheet1").Range("B1"), "hh:mm") & " " & Range("A1").Value = Replace(Format(Sheets("Sheet1").Range("B1"), "dd/mm/yyyy"), "/", "-")
' I separate the time from B1 and format it using Format(Sheets("Sheet1").Range("B1"), "hh:mm")
'I separate the Date from B1 and format it using Format(Sheets("Sheet1").Range("B1"), "dd/mm/yyyy")
'I then change the two "/"s in the date with "-" using Replace(Format(Sheets("Sheet1").Range("B1"), "dd/mm/yyyy"), "/", "-")
Bookmarks