How about this?  James

Sub NameEm()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       ws.Activate
       Columns("A:C").Name = "w" & ws.Name & "s"
       Columns("D:F").Name = "w" & ws.Name & "c"
   Next ws
End Sub

Sub Namer()
Dim b As Boolean
Dim ws As Worksheet
Dim nms As Names
Set nms = ActiveWorkbook.Names
For Each ws In ActiveWorkbook.Worksheets
   With ws
       b = False
       On Error Resume Next
       b = Val(.Name) = .Name
       On Error GoTo 0
       If b Then
           nms.Add "w" & .Name & "s", .Range("A:C")
           nms.Add "w" & .Name & "c", .Range("D:F")
       End If
   End With
Next

End Sub

If you were to use Worksheet level names, also known as Local names, each
sheet could have identically named Names, eg "ws" & "wc"

Regards,
Peter T

Sub nameranges()
  For sheetcount = 1 To 52
      refername = "=" & Chr(39) & "names " & sheetcount & Chr(39) & "!A:C"
     ActiveWorkbook.Names.Add Name:="w" & sheetcount & "s", _
        RefersTo:=refername
     refername = "=" & Chr(39) & "names " & sheetcount & Chr(39) & "!D:F"
     ActiveWorkbook.Names.Add Name:="w" & sheetcount & "c", _
        RefersTo:=refername
  Next sheetcount
End Sub