out of range message

[Souris]

I get message box from the msgbox, but I get out of range fwhen I assign the
range to my DestSheetRange. Any suggestions?

Your help is great appreciated,

Here is my code,

Response = MsgBox(Application.ActiveSheet.Range("B11").Value, vbOKOnly)

Dim DestSheetRange As Range


DestSheetRange = Sheets("sheet1").Range("B11")

 

[Bob Phillips]

Set DestSheetRange = Sheets("sheet1").Range("B11")

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Dave Peterson]

Check your spelling of that worksheet name--I don't think "Sheet1" exists in the
active workbook.

and remember you'll need to use the Set statement when you're working with
objects (like Ranges):

dim DestSheetRange as Range
Set DestSheetRange = Sheets("SpelledCorrectly").range("B11")

 

[Souris]

Thanks for message,

Check your spelling of that worksheet name--I don't think "Sheet1" exists in the
active workbook.

and remember you'll need to use the Set statement when you're working with
objects (like Ranges):

dim DestSheetRange as Range
Set DestSheetRange = Sheets("SpelledCorrectly").range("B11")