sheet name
Since the code I gave you has that line right after
On Error Resume Next
which tells VBA to ignore any errors, I'll assume that you've modified
it somehow. Posting the code you actually used may help...
In article ,
geebee (noSPAMs) wrote:
i,
I am getting a "subscript out of range" error pointing to the
Set sh = Worksheets("acct" & x - 1)
line.
geebee
"JE McGimpsey" wrote:
If I understand your question, one way:
Dim sh As Worksheet
Dim x As Long
For x = 1 To 30
On Error Resume Next
Set sh = Worksheets("acct" & x - 1)
On Error GoTo 0
If Not sh Is Nothing Then
' do stuff
End If
Set sh = Nothing
Next x
|