Pinokkio
03-24-2010, 12:04 PM
Hi, good nigth.
H1 = "Amdez-16-03-2010-184813"
Set wks = ActiveSheet
Do While sName <> wks.Name
sName = ActiveSheet.Range("H1")
On Error Resume Next
wks.Name = sName
Loop
Set wks = Nothing
Here is a listing that works with de name "Amdez" or "Amber" ...
But wen I thake the name
"Andreas Kuiper BV-16-03-2010-184813"
I get the ERROR on line "Loop"
Is there anyone who can help.
H1 = "Amdez-16-03-2010-184813"
Set wks = ActiveSheet
Do While sName <> wks.Name
sName = ActiveSheet.Range("H1")
On Error Resume Next
wks.Name = sName
Loop
Set wks = Nothing
Here is a listing that works with de name "Amdez" or "Amber" ...
But wen I thake the name
"Andreas Kuiper BV-16-03-2010-184813"
I get the ERROR on line "Loop"
Is there anyone who can help.