error 1004 method range of object worksheet failed

[kobe8]

Hi,

I am getting the above error and below shows up when I debug:

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SheetName As String
Dim PathName As String

Range("c.start").Select

Do While ActiveCell.Value > 0
SheetName = ActiveCell.Offset(0, 2).Value
PathName = ActiveCell.Offset(0, 1).Value

Sheets(SheetName).Range("PrintRange").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PathName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

ActiveCell.Offset(1, 0).Select

Loop
End Sub

This was working in the prior months and the error started this month. Can anyone assist me to resolve this problem.

Thanks,

 

[s hal]

Is it at the line that you made (a very unreadable) yellow text that you are having an error at? I could see the following possibilities: the sheet name/range does not exist. The path is incorrect. Since you have your variables pulling in something from the sheet, you might want to confirm that they are valid paths.