Here's my sub-procedure, I am getting the error
message "Subscript out of range". Please help, I am only
wanting to set the cells value to a variable.

Public Sub TEST()
Dim strCellTest As String

sCellTest = Worksheets("Sheet1").Cells(1, 1).Value
Debug.Print sCellTest

End Sub

Also, how do I SET a cells value? Like this?:

Worksheets("Sheet1").Cells(1, 1).Value = strNewVal

Thanks in advance,

ChrisB