Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #108300

Re: Worksheets dilemma

Show all headers | View raw

Hi Steven,

Am Fri, 11 Dec 2015 00:31:41 -0800 (PST) schrieb Steven@pctamers.eu:

> ' ******************************************************************************************************************************
> ' I believe I need code here to activate each OEM sheet in turn and I've tried but can't quite get it to work.
> '******************************************************************************************************************************

there is not need to activate the sheets. You only have to refer
correctly.
Try:

For Each wsh In Worksheets
    If Left(wsh.Name, 3) = "OEM" Then
        With wsh
            If Len(.Range("G1")) = 0 Then
                Cancel = True
                MsgBox "You have left the field G1 in sheet " & wsh.Name
& vbNewLine & _
                    "'Measured Mains Voltage RMS' blank. Please fill it
out." & vbNewLine _
                        & "You can exit from this procedure by clicking
'No' on the next dialog box."
            End If
        End With
    End If
Next wsh


Regards
Claus B.
-- 
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Worksheets dilemma Steven@pctamers.eu - 2015-12-09 06:58 -0800
  Re: Worksheets dilemma Claus Busch <claus_busch@t-online.de> - 2015-12-09 16:22 +0100
    Re: Worksheets dilemma Steven@pctamers.eu - 2015-12-11 00:31 -0800
      Re: Worksheets dilemma Claus Busch <claus_busch@t-online.de> - 2015-12-11 09:42 +0100
        Re: Worksheets dilemma Steven@pctamers.eu - 2015-12-11 08:57 -0800
        Re: Worksheets dilemma Steven@pctamers.eu - 2015-12-14 03:42 -0800
          Re: Worksheets dilemma Claus Busch <claus_busch@t-online.de> - 2015-12-14 12:51 +0100
  Re: Worksheets dilemma Steven@pctamers.eu - 2015-12-14 08:31 -0800

csiph-web