Naming Worksheet with Two Range Values

[Shiseiji]

Hi all, time to ask for help. What's the error please:

Sub m_NamePastAdmin()
    '
    Application.DisplayAlerts = False
    Application.DisplayStatusBar = False
    Application.ScreenUpdating = False
'
    ws_3Admin1.Activate
'
    Dim LastCol                     As Integer
    Dim LastRow                     As Long
    Dim ThisWsName                  As Name
    Dim PastAdminWsDate             As Range
    Dim PastAdminWsName             As Range
    Dim ThisWs                      As Worksheet
    Dim ThisWb                      As Workbook
    '
    Set ThisWb = ActiveWorkbook
    Set ThisWs = ActiveSheet
    '
    With ThisWs
        LastRow = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        Cells(Rows.Count, "A").End(xlUp).Name = "PastAdminWsDate"
        Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Name = "PastAdminWsName"
        Range("PastAdminWsName").Value = "Past Admin "
        ws_3Admin1.Name = Range(PastAdminWsName) & Range(PastAdminWsDate)
      Application.ScreenUpdating = True
      Application.StatusBar = False
End With 'ThisWs
End Sub

 

[snjpverma]

did you try using quotes as shown below in both ranges?

ws_3Admin1.Name = Range("PastAdminWsName") & Range("PastAdminWsDate")



.

 

[Shiseiji]

Thanks, I "Thought" I had, but obviously hadn't. I get confused on when the quotes are needed and when they aren't. Fooled with this for 4 hours and lost track of how many different things I'd tried. Had started with trying to set ranges as I won't need them after the worksheet is named and then bounced all over the place.

Really appreciate it.

Ron

 

[snjpverma]

Happens with the best of us.

Glad to know it worked for you eventually. thanks for the feedback.