problem with my macro, please help

[prasadyanz]

Filename = ActiveWorkbook.Name
SheetName = ActiveSheet.Name
ActiveSheet.Name = Filename & " " & SheetName
Rows("1:3").Select
Range("A3").Activate
Selection.Delete Shift:=xlUp


i am getting "run time error 1004"
in this my file name is AnalysisSet_EnvSet_103.xls.

the same macro run for the file name AnalysisSet_EnvSet_99.xls
from 100 onwards i am getting error. file name changes from 1-144. please let me know how to solve this problem

 

[Blunder1]

It's probably too many charatcters for a sheet name. You can have a maximumn of about 30, the workbook name uses most of those....

 

[prasadyanz]

yes... i understand ...thank you very much