Thanks again, Kenneth. Much obliged. It is very helpful to now know how to use Debug and Evaluate. I'm sure they will both show their value in times to come. Unfortunately, I still seem to be too stupid to use them to good effect to answer my query. I enclose a small procedure to demonstrate exactly what I mean. I'm sure the solution will be very obvious to you, but I just don't see it.
Sub TestRange()Dim FRow As Integer, P As String
FRow = 1
' Range("H1" & ":" & "OFFSET(H1,0,0,COUNTA(H:H),1)").Select ' This works
' Range("H" & FRow & ":" & "OFFSET(H1,0,0,COUNTA(H:H),1)").Select ' This works
' Range("H" & FRow & ":" & "OFFSET(""H"" & FRow,0,0,COUNTA(H:H),1)").Select ' This DOES NOT work
P = """OFFSET(""H"" & FRow,0,0,COUNTA(H:H),1)"""
Debug.Print P
' Range("H" & FRow & ":" & P).Select ' This DOES NOT work
End Sub
Please forgive me for taking so much of your time.
Best regards.