View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
thanks thanks is offline
external usenet poster
 
Posts: 48
Default Code Fails on SAVE

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!