Set bk = Workbooks(...)

R

R Dunn

Hi all,

In my macro, I want to use expressions like:

Do Until (Sheet1.Cells(startRow, 2).Value = 5)

But I'm having trouble "setting up" Sheet1. I've got the declaration
statements

Dim Sheet1 As Worksheet
Dim bk As Workbook

But then for the "Set" part, I'm not sure how to go about it. I've tried
(and subsequently commented out) all of the following. Can anyone see where I
am going wrong?
(The file name is quite long - Chessel 0 deg June 25th 200-275 plus 575.xls)

'Set bk = ThisWorkbook
'Set bk = Workbooks("Chessel 0 deg June 25th 200-275 plus 575")
Set bk = Workbooks("CHESSEL 0 DEG JUNE 25TH 200-275 PLUS 575")
Set Sheet1 = bk.Worksheets("TEMPDATA")
'Set Sheet1 = Worksheets("TEMPDATA")


Thanks.

Rebecca
 
T

Tom Ogilvy

Dim bk as Workbook
Dim sh as Worksheet

set bk = workbooks("Chessel 0 deg June 25th 200-275 plus 575.xls")
set sh = bk.Worksheets("Tempdata")

sheet1 could conflict with the code name of one of you sheets.

Use the .xls extension.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top