Chris,

Are you sure you have a worksheet named "Sheet1"?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"ChrisB" wrote in message
...

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