×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Reference a worksheet name that can change
2

Reference a worksheet name that can change

Reference a worksheet name that can change

(OP)


I need to reference few ranges on a worksheet named Invoice (Invoice), but sometimes its name changes to Invoice 1

How would I allow for either scenario?

Worksheets("Invoice").Range("A1") or Worksheets("Invoice 1").Range("A1")

I tried something like this thinking Invoice is the codename whether it is Invoice or Invoice 1, but it didn't work:

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Invoice")

ws(Invoice).Range("A1")

RE: Reference a worksheet name that can change

Hi,

Under what circumstances does the sheet name change?

Does the sheet name ALWAYS begin with Invoice?

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Yes it always begins with Invoice. The workbook allows the user to open up new invoices and other named worksheets. If they open up new Invoice worksheets, Invoice changes to Invoice 1, and each new invoice becomes Invoice 2, Invoice 3 and so on. I only need to reference the MAIN invoice, which will be either Invoice or Invoice 1.

RE: Reference a worksheet name that can change

please post the entire code that you're using.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

It's actually based on my last post:

CODE --> VBA

Sub sendInvoice()

    Dim i As Integer
    Dim ws As Worksheet
        
    'Set ws = ThisWorkbook.Sheets("Sheet1") - This didn't work!
    
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        
        .Navigate "http://website.com" 'change name!
        
        
        Do
            DoEvents
        Loop Until .ReadyState = 4     
         
        With .Document
            For i = 1 To 9
                If Not .getElementById("checkboxIdj" & i).Checked Then
                
                    .getElementById("checkboxIdj" & i).Checked = True                    
                    .getElementById("invoice-j" & i).Value = Worksheets("Invoice").Range("A1")
                    .getElementById("customername-j" & i).Value = Worksheets("Invoice")."B1")
                    
                                     
                    Exit Sub
                End If
            Next
        
            MsgBox "Timecard is full!"

        End With
    End With 

RE: Reference a worksheet name that can change

CODE

Private Sub sendtimecard()
    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
        
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
    
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://website.html"
        
        Do
            DoEvents
        Loop Until .ReadyState = 4
        
        With .Document
            For i = 1 To 3
                If Not .getElementById("chkboxJOB" & i).Checked Then
                
                    .getElementById("chkboxJOB" & i).Checked = True
                    .getElementById("txtNameJOB" & i).Value = wsINV.Range("A1")
                    .getElementById("txtHoursJOB" & i).Value = wsINV.Range("B1")

                    GoTo Xit
                End If
            Next
        
            MsgBox "Timecard is full!"

        End With
    End With
    
Xit:
    Set wsINV = Nothing
End Sub 

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change


Is it always the first (second? third?) worksheet in your workbook?

If second (for example), you may try:

CODE

Set ws = ThisWorkbook.Sheets(2) 

---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

(OP)


It is always the FIRST worksheet!

I get "Object Variable or With Block Variable not set" error at this line:

.getElementById("txtNameJOB" & i).Value = wsINV.Range("A1")

RE: Reference a worksheet name that can change

Please post your entire code.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

My code is now showing named ranges, but I had tried it with just ("A1") and ("B1")as well.

CODE -->

Sub sendtimecard()
On Error GoTo Err_sendtimecard

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Exit For
        End Select
    Next
       
    With CreateObject("InternetExplorer.Application")
        .Visible = True
               
        .Navigate "www.webpage.com" 'THIS IS LOCAL TEST SITE ONLY!
               
        Do
            DoEvents
        Loop Until .ReadyState = 4     
              
        With .Document
            For i = 1 To 9
                If Not .getElementById("chkboxJOB" & i).Checked Then
                
                    .getElementById("chkboxJOB" & i).Checked = True
                    .getElementById(txtNameJOB" & i).Value = wsINV.Range(RANGE_CUSTNAME)
                    .getElementById("invoiceJOB" & i).Value = wsINV.Range(RANGE_INVOICENUMBER)
                                     
                    Exit Sub
                End If
            Next
        
            MsgBox "Timecard is full!"

        End With
    End With

    
Exit_sendtimecard:
    Exit Sub
    
Err_sendtimecard:
    MsgBox Err.Description
    Resume Exit_sendtimecard
    
Set ws = Nothing
    
End Sub 

RE: Reference a worksheet name that can change

Put QUOTES around RANGE_CUSTNAME and RANGE_INVOICENUMBER

Or...

CODE

‘
                    .getElementById(txtNameJOB" & i).Value = [RANGE_CUSTNAME]
                    .getElementById("invoiceJOB" & i).Value = [RANGE_INVOICENUMBER] 
Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Quotes don't work, I tried your 2nd option with the brackets, but it returns the cell reference instead of the cell value

RE: Reference a worksheet name that can change

CODE

'
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next 

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

I don't know how that wasn't showing up above, but it is in my code. Sorry about that, still getting that same error message: Object Variable or With Block Variable not set

So far, it only works if I use:

.Value = Worksheets("Invoice").Range(RANGE_INVOICENUMBER) or: .Value = Worksheets("Invoice 1").Range(RANGE_INVOICENUMBER)

RE: Reference a worksheet name that can change

Please post your code again.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Here it is, with the code that works for single Invoice commented out:

CODE --> vbA

Sub sendtimecard()
On Error GoTo Err_sendtimecard

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
       
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        
        .Navigate "http://www.test.com" 'THIS IS LOCAL TEST SITE ONLY!
               
        Do
            DoEvents
        Loop Until .ReadyState = 4   
       
        
        With .Document
            For i = 1 To 9
                If Not .getElementById("checkboxIdj" & i).Checked Then
                
                    .getElementById("chkboxJOB" & i).Checked = True
                    .getElementById(txtNameJOB" & i).Value = wsINV.Range(RANGE_CUSTNAME)
                    .getElementById("invoiceJOB" & i).Value = wsINV.Range(RANGE_INVOICENUMBER)

                    
'                    .getElementById("txtNameJOB" & i).Value = Worksheets("Invoice").Range(RANGE_CUSTNAME)
'                    .getElementById("invoiceJOB" & i).Value = Worksheets("Invoice").Range(RANGE_INVOICENUMBER)

                                     
                    Exit Sub
                End If
            Next
        
            MsgBox "Timecard is full!"

        End With
    End With

    
Exit_sendtimecard:
    Exit Sub
    
Err_sendtimecard:
    MsgBox Err.Description
    Resume Exit_sendtimecard
    
Set ws = Nothing
    
End Sub 

RE: Reference a worksheet name that can change

Your code is missing a QUOTE

CODE

.getElementById("txtNameJOB" & i).Value = wsINV.Range(RANGE_CUSTNAME) 

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Yeah, I made an edit in the post, it is there in my vba though!

RE: Reference a worksheet name that can change

Well....???

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

"I made an edit in the post" - you cannot do that, please.

When Skip asks you to "Please post your code ", please - Copy your code and Paste it in here.
Do not edit anything.

Otherwise we will play a guessing game with no end.


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

We need to see the actual code that you’re using—-COPY N PASTE

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

HERE IT IS:


CODE --> vba

'Populate online timecard
Sub sendtimecard()
On Error GoTo Err_sendtimecard

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
       
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        
       
        .Navigate "http://website.com" 'THIS IS LOCAL TEST SITE ONLY!
               
        Do
            DoEvents
        Loop Until .ReadyState = 4 
    
        'Start populating job fields from job1 to job9, based on next empty Job chkbox...
        
        With .Document
            For i = 1 To 9
                If Not .getElementById("chkboxJOB" & i).Checked Then
                
                    .getElementById("chkboxJOB" & i).Checked = True
                    .getElementById("txtNameJOB" & i).Value = wsINV.Range(RANGE_CUSTNAME)
                    .getElementById("invoiceJOB" & i).Value = wsINV.Range(RANGE_INVOICENUMBER)

                    
'                   .getElementById("txtNameJOB" & i).Value = Worksheets("Invoice").Range(RANGE_CUSTNAME)
'                   .getElementById("invoiceJOB" & i).Value = Worksheets("Invoice").Range(RANGE_INVOICENUMBER)

                                     
                    Exit Sub
                End If
            Next
        
            MsgBox "Timecard is full!"

        End With
    End With

    
Exit_sendtimecard:
    Exit Sub
    
Err_sendtimecard:
    MsgBox Err.Description
    Resume Exit_sendtimecard
    
Set ws = Nothing
    
End Sub 

RE: Reference a worksheet name that can change

Took your code and I also made named ranges like yours and this works, which means I get the VALUES entered in those two cells...

CODE

Sub sendtimecardTEST()
On Error GoTo Err_sendtimecard

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
    
Debug.Print wsINV.Range("RANGE_CUSTNAME")
Debug.Print wsINV.Range("RANGE_INVOICENUMBER")
End Sub 

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

Skip already gave you this fix / hint in his post on 21 Aug 18 at 18:42

Quote (Skip)

Put QUOTES around RANGE_CUSTNAME and RANGE_INVOICENUMBER


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

(OP)
That didn't work, I tried it, let me try it again

RE: Reference a worksheet name that can change

(OP)

Guys, it just won't work with my workbook. I added the quotes. As soon as it tries to enter the customer name, it goes to the error handler with the message: "Object Variable or With Block Variable not set"

RE: Reference a worksheet name that can change

Please COPY N PASTE your current code here.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

I also tried separating the Dims:

Dim ws As Worksheet, wsINV As Worksheet

to

Dim ws As Worksheet
Dim wsINV As Worksheet

RE: Reference a worksheet name that can change

(OP)
Its the exact same code, except it has quotes around the range names!

RE: Reference a worksheet name that can change

That’s not what I asked for.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

Paste this into your module and run this test, please

CODE

Sub sendtimecardTEST()

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
    
Debug.Print wsINV.Range("RANGE_CUSTNAME")
Debug.Print wsINV.Range("RANGE_INVOICENUMBER")
End Sub 

Your values should print in the Immediate Window.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

I also did this just like you did above:

Debug.Print wsINV.Range("RANGE_CUSTNAME")
Debug.Print wsINV.Range("RANGE_INVOICENUMBER")

And it didn't work. Got the same error

But when I changed wsINV to Worksheets("Invoice") it worked and printed out values to the Immediate window

RE: Reference a worksheet name that can change

(OP)
I copied your code, the same thing - the same error message

Here it is, same as yours:

CODE --> vba

Sub sendtimecardTEST()

    Dim i As Integer
    Dim ws As Worksheet, wsINV As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Invoice", "Invoice1", "Invoice 1"
                Set wsINV = ws
                Exit For
        End Select
    Next
    
Debug.Print wsINV.Range("RANGE_CUSTNAME")
Debug.Print wsINV.Range("RANGE_INVOICENUMBER")
End Sub 

RE: Reference a worksheet name that can change

(OP)
vba is so frustrating

RE: Reference a worksheet name that can change

(OP)

Is it possible if there is code somewhere else in my workbook setting the Invoice to a different name or variable, could that be the problem?

RE: Reference a worksheet name that can change

Then I'd say that your sheet has something strange going on.

Please upload your workbook of at least the sheet containing the named ranges and your VBA code.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

Going back to your original post

Quote:

I tried something like this thinking Invoice is the codename whether it is Invoice or Invoice 1

It's been a while since I've worked in VBA but I would think you would want to work with the CodeName which is the name of the worksheet that is not in parenthesis in the Project - VBAProject panel. I would rename Sheet1 to something like InvoiceSheet and then reference it that way

CODE

Public Sub Test()
    Dim ws As Worksheet
    Set ws = InvoiceSheet
    ws.Cells(5, 5) = "hello, world"
    ' or just...
    InvoiceSheet.Cells(5, 5) = "hi, world"
End Sub 

RE: Reference a worksheet name that can change

Since you stated: "[Invoice Sheet] is always the FIRST worksheet!", try this:

CODE

Sub sendtimecardTEST()

    Dim i As Integer
    Dim ws As Worksheet  ', wsINV As Worksheet
    
    Set ws = ThisWorkbook.Sheets(1) 

    'For Each ws In ThisWorkbook.Worksheets
    '    Select Case ws.Name
    '        Case "Invoice", "Invoice1", "Invoice 1"
    '            Set wsINV = ws
    '            Exit For
    '    End Select
    'Next
    
Debug.Print ws.Range("RANGE_CUSTNAME")
Debug.Print ws.Range("RANGE_INVOICENUMBER")

End Sub 


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

(OP)


I tried that, didn't work: I got error: Method 'Range' of Object'_Worksheet' failed

Sub sendtimecardTEST()

Dim i As Integer
Dim ws As Worksheet ', wsINV As Worksheet

Set ws = ThisWorkbook.Sheets(1)

'For Each ws In ThisWorkbook.Worksheets
' Select Case ws.Name
' Case "Invoice", "Invoice1", "Invoice 1"
' Set wsINV = ws
' Exit For
' End Select
'Next

Debug.Print ws.Range("RANGE_CUSTNAME")
Debug.Print ws.Range("RANGE_INVOICENUMBER")

End Sub

RE: Reference a worksheet name that can change

(OP)

Here is an idea:

Since my code only seems to accept the 2 naming conventions below,

Worksheets("Invoice").Range("") or Worksheets("Invoice 1").Range("")

Couldn't I just turn this into an Or statement?

If Worksheets("Invoice") is present, send to ("Invoice"). If Worksheets("Invoice 1") is present, send to ("Invoice 1")?

I would think that would work, but I don't know the correct syntax.



RE: Reference a worksheet name that can change

Quote (Pudsters)

I tried that, didn't work: I got error: Method 'Range' of Object'_Worksheet' failed

What this tells me is either 1) your Named Ranges are not on the first sheet or you have no Named Ranges at all!

This actually works by writing the values in the Immediate Window (ARE YOU LOOKING THERE?)

CODE

Set ws = ThisWorkbook.Sheets(1)

Debug.Print ws.Range("RANGE_CUSTNAME")
Debug.Print ws.Range("RANGE_INVOICENUMBER")

Debug.Print [RANGE_CUSTNAME]
Debug.Print [RANGE_INVOICENUMBER] 

NOTICE, the beauty of Named Ranges is that you don't even need a Worksheet reference!!! BOTH of the above techniques work!

So what you have told us, AGAIN, ain't so!

Please upload your workbook. Seems you have something screwy going on.


Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Forget the named ranges, it doesn't even work, when I use ("A1") and ("B1") instead of named ranges.

RE: Reference a worksheet name that can change

Please upload your workbook. With a quick glance I can tell you what’s wrong.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

Quote (Pudsters)

vba is so frustrating

It is like saying: “Driving standard / manual transmission car is so frustrating.” Every time you start from dead stop, the engine dies. Driving in first gear the car jumps and shakes, passengers get sick. You need to replace the clutch every few thousand miles. RPMs go to a red zone on highway driving at 70 mph in second gear, the engine screams.

People who know how to drive stick shift cars don’t have any of these problems and LOVE it.

The same goes with VBA pc1


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

Twenty four years ago Excel VBA was frustrating.

Then a knowledgeable guy sat down with me and gave me a boost. I got a little better.

Seven years later I came across Tek-Tips and began getting a lot of boosts. Still do.

Excel VBA is an amazing tool. But, like anything worth doing, it takes work. Constant work. If you’re gonna just dabble here and there, VBA will, without a doubt, continue to be frustrating. If you put your mind and efforts toward developing a growing level of proficiency, you will be richly rewarded.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)
Let me rephrase: VBA can be frustrating when you only have a very limited understanding of it (beginning users).

Thanks for all of your help

RE: Reference a worksheet name that can change

That's where you have other people (i.e. Tech-Yips) to help you smile

Did you make it work?
If so, could you post the final, working version of your code to benefit others who may look for solution?


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

(OP)

Still working on it, but I have to put it on hold for a few days, will post back the results. Thanks again!

RE: Reference a worksheet name that can change

Good. Don’t give up. You have help at hand.

I see you’re from PA. Grew up near Philly. Got my degree from LU in Bethlehem. Married a girl from Williamsport. First job in Pittsburgh. Just visited my sister in Harrisburg last week.

Don’t give up. We’ll figure this out together.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)
I DID IT! I'M SO HAPPY, IT NOW WORKS PERFECTLY!

Someone else created the original workbook, and it is really large! I found this function inside a module to determine the sheetname:

CODE --> vba

Function GetMainInvoiceSheetName() As String

   With wkbCall
     If .Worksheets("wksInternal").Range("Active_Invoices").Value > 1 Then
       GetMainInvoiceSheetName = "Invoice 1"
     Else
       GetMainInvoiceSheetName = "Invoice"
     End If
   End With
End Function 

So I added this to the top of my sub:

Dim ws As Worksheet
Set ws = wkbCall.Worksheets(GetMainInvoiceSheetName)

And changed all my references to:
.Value = ws.Range(RANGE_INVOICENUMBER) and so on...

Thank you for all your help and encouragement!

Oh, and Skip, I'm in Allentown suburbs, about 10 minutes from Lehigh U!

RE: Reference a worksheet name that can change

Way, way back, some 60 years ago, my family used to drive up to Atown, to a restaurant, maybe it was a smorgasbord, that had “hot bacon dressing”. Of course often flew into ABE. So although I’ve been in TX nearly forty years, I still consider myself a citizen if Penn’s Woods. Got a nephew that works in Atown.

BTW, if this works...

CODE

.Value = ws.Range(RANGE_INVOICENUMBER) 
...without quotes, then RANGE_INVOICENUMBER is a variable and not a Named Range. Somewhere logically prior to this statement, you must have an assignment of a string range reference to that variable (RANGE_INVOICENUMBER = someRangeRef)

Glad you got that sorted out.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Reference a worksheet name that can change

(OP)

Skip, you are right. I didn't realize that named ranges and variables assigned to a range were two different things, which guess explains the lack of quotes.

RE: Reference a worksheet name that can change

Pudsters,
If anybody ever deserved a Star for the help provided, you should award one to Skip.


---- Andy

There is a great need for a sarcasm font.

RE: Reference a worksheet name that can change

Let me just give you a few pointers regarding Named Ranges.

I find Named Ranges to be extremely helpful on the sheet. When used in formulae, it almost makes it self documenting. What’s easier to understand?:

=MATCH(SelectedEmp,EmpList,0)
=MATCH(Sheet2!A1,A2:A127,0)


A Named Range can reference a single cell or an other range, like a column of data.

You’ll notice the Name Box in the upper left-hand corner just above the sheet grid. If you hover your mouse pointer over it, you’ll see the name of this feature. It has a drop down that displays any Named Ranges on the sheet or at the workbook level, and it displays the ActiveCell reference.

Do some exploring in Formulas > Defined Names…, particularly Create From Selection. This is VERY useful.

Structured Tables also used named ranges that are a built-in feature. This is VERY VERY useful!!!

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close