Simple VBA - What's wrong??

C

ChrisB

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
 
C

Chip Pearson

Chris,

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


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

Gerrit

ChrisB said:
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
Click to expand...

Are you sure Sheet1exist????????
 
B

Bob Phillips

Chris,

Do you have worksheet called Sheet1?

By the way, you dimension a variable called strCellTest, and then use
sCellTest. Precede your code with Option Explicit!

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top