I have the following Macro and it works well untill I try to rename the
2nd sheet. I need to advance to the next Column (Example: B1 , C1, D1
....) in my Sheet(2).Range("X"). Is there anyway to do this? If so,
How?

Thanks,
Randy


Sub Macro 1
'
Dim nFloors
Dim nCount
Dim i
Dim nSheet

nCount = Sheets(1).Range("B26")
For i = 1 To nCount
nSheet = Application.Sheets.Count

If i = nFloors Then
End
End If
Application.ScreenUpdating = False

Sheets(3).Copy After:=Sheets(nSheet)
ActiveSheet.Name = "Floor " & Sheets(2).Range("B1")

Next i
End Sub