Referencing sheet on a web browser

  • Thread starter Thread starter jeq214
  • Start date Start date
J

jeq214

I have a sheet that calculates pricing projections which gets its info from a
form that pops up when the user clicks a button. The file is posted on the
intranet and works fine when it is saved on to the desktop. The problem
occurs when the user selects 'Open' and the file is opened in a web browser.
I get a "Run-time error '91': Object variable or With block variable not set"
error on the fifth line:

Private Sub cmdCalc_Click()
Dim vEmpty As String
Dim vNumeric As String

ActiveWorkbook.Sheets("Business Account Pricing").Activate <-------
Range("A1").Select

' Check user input

If Me.txtECR.Value = "" Then
vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine
Else
If IsNumeric(txtECR.Value) = True Then
Range("C147").Value = txtECR.Value
End If
End If
....

Is there a way to have this work when its saved on the desktop or opened in
a web browser?
Thanks for any help
Jon
 
try this

Private Sub cmdCalc_Click()
Dim vEmpty As String
Dim vNumeric As String

with ActiveWorkbook.Sheets("Business Account Pricing")


' Check user input

If Me.txtECR.Value = "" Then
vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine
Else
If IsNumeric(txtECR.Value) = True Then
.Range("C147").Value = txtECR.Value
End If
End If
end with
 
Its still giving me the same error.

Joel said:
try this

Private Sub cmdCalc_Click()
Dim vEmpty As String
Dim vNumeric As String

with ActiveWorkbook.Sheets("Business Account Pricing")


' Check user input

If Me.txtECR.Value = "" Then
vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine
Else
If IsNumeric(txtECR.Value) = True Then
.Range("C147").Value = txtECR.Value
End If
End If
end with
Click to expand...
 
Does changing active to this make any differences

from
with ActiveWorkbook.Sheets("Business Account Pricing")

to
with ThisWorkbook.Sheets("Business Account Pricing")

This workbook is the workbook where the macro is located.
 
Back
Top