LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 410
Default Can not set WorkBook variable

I am trying to copy a group of cells from one spread sheet and move it
to another sheet after the 2nd sheet is opened. It will not let me
set the variable WkBk2. Let me know if you see nay issues with this
code.

Thanks,
Jay

Private Sub OptionButton1_Click()
Dim C1, C2 As Range
Dim WkBk2 As Workbook
Dim Sht2 As Worksheet
Set C1 = Selection
Dim NextRow As Long

Workbooks.Open Filename:="G:\Masters\External Sales Masters
\Pumpernickel Press\Current CGC run info sheets - Regular PMP
Runs.xls"
Set WkBk2 = Wokbook("Current CGC run info sheets - Regular PMP
Runs.xls")
Set Sht2 = WkBk2.Sheet1
Set C2 = WkBk2.Sht2.Range("A4:AC10")
NextRow = Sht2.Range("B65536").End(xlUp).Row + 2

C2.Copy
Range("A" & NextRow).PasteSpecial (xlPasteAll)
C1.Copy
Range("B" & NextRow).PasteSpecial (xlPasteValues)
Range("J" & NextRow, "R" & NextRow + 8).Copy
Range("J" & NextRow).PasteSpecial (xlPasteValues)
Range("B" & NextRow).NumberFormat = ";;;"
Range("B" & NextRow + 1) = "Run " & Range("B" & NextRow +
1).Value

Unload Me
End Sub
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
variable substitution in a formula linking to external workbook my Excel Discussion (Misc queries) 2 August 29th 07 03:05 PM
External reference with variable workbook name? KenV New Users to Excel 4 February 10th 06 09:48 PM
How do I link to a workbook whose name is variable? Carl Borthwick Excel Discussion (Misc queries) 1 January 13th 06 10:01 AM
Use of variable to identify range of sheets in a workbook rhs414 Excel Discussion (Misc queries) 1 June 20th 05 01:42 PM
Getting data from another workbook based on variable joemc911 Excel Discussion (Misc queries) 3 May 25th 05 09:18 AM


All times are GMT +1. The time now is 09:56 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"