Check if Workbook is open with dynamic name

[Blunder1]

Hi,

I need to check if a workbook is already open and am struggling with the correct code. I think i'm almost there, see below, however it comes up with an error when trying to set the workbook.

Sub Raw_Data()
Dim Iptbox As Excel.Range
Dim wbook As Workbook
Set Iptbox = Application.InputBox(Prompt:="Highlight cell to open raw data", Title:="Date for Raw Data", Type:=8)
Range("iv1").Formula = CDate(Iptbox)

Set wbook = Workbooks("Fail stats COB" & Format(Iptbox, "mmdd") & ".xls")
If Not wbook Is Nothing Then
Workbooks.Open Filename:= _
       "V:\Daily Raw Data\" & Format(Range("iv1").Value, "yyyy""\""mmmm""\Wipro Fail stats COB ""ddmm"), IgnoreReadOnlyRecommended:=True
End If
 
End Sub

Any helo will be much appreciated.

Thanks in advance

Blunder

 

[Andrew Poulsom]

You need:

On Error Resume Next

on the line before Set wbook.

 

[GTO]

What is the FullName of the actual wb?

 

[Blunder1]

the full name will depend on the date.....

 

[GTO]

the full name will depend on the date.....

Well......that much I gathered. An example?

Please note Andrew's direction, I would include an On Error GoTo 0 immedietely after the Set.

 

[Blunder1]

sorry, it would be 'Fail stats COB 0909.xls'...

 

[GTO]

sorry, it would be 'Fail stats COB 0909.xls'...

Utterly no problem, but that is not a FullName. Could it be(?):

'V:\Daily Raw Data\Fail stats COB 0909.xls'

 

[Blunder1]

but when the user selects a date i need to open that specific workbook. Before that i need ot check if it is already open. To set the work book name i need the static part 'Fail stats COB' followed by the date which will be stored in the cell 'iv1'. This is what i cannot seem to set wothout an error...

 

[Blunder1]

VoG, you came through again!! Thank you

 

[VoG]

VoG, you came through again!! Thank you

Eh