T
Thanks
Hello
The following code gives me Incorrect Function on the save line. What does
this mean and how do I fix it?
Dim strMonth As String
Dim strYear As String
Range("B36:X36").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A4:X35").Select
Application.CutCopyMode = False
Selection.ClearContents
strMonth = InputBox("Enter Reporting Month 01-12")
strYear = InputBox("Enter Reporting Year")
ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Thanks!
The following code gives me Incorrect Function on the save line. What does
this mean and how do I fix it?
Dim strMonth As String
Dim strYear As String
Range("B36:X36").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A4:X35").Select
Application.CutCopyMode = False
Selection.ClearContents
strMonth = InputBox("Enter Reporting Month 01-12")
strYear = InputBox("Enter Reporting Year")
ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Thanks!