Error 400?

[BrittKnee]

I am writing a simple string of code and continue to get an Error that reads "400." I found a thread that addressed this, but thought maybe it had something to do with the code.

Sub Worksheet_S10()


'Activate Workbook
Workbooks("Workbook1.xlsm").Activate
'Activate Worksheet
Workbooks("Workbook1").Sheets("Sheet1").Activate


'Categorize as Insured or Uninsured
Range("B10:B" & LastRow).Formula = "=IF(RC[7]>1,""Insured"",""Uninsured"")"




End Sub


Basically all I want it to do is to open the sheet (which it does) and copy enter and copy the formula to all cells in column B. All help is appreciated!

 

[mumps]

You haven't defined what LastRow is. Try:

Sub Worksheet_S10()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Sheets("Sheet1").Range("B10:B" & lastRow).Formula = "=IF(RC[7]>1,""Insured"",""Uninsured"")"
End Sub

 

[Tetra201]

Currently, your LastRow is zero. That's the reason for RTE 1004.

 

[Fluff]

Hi & welcome to the board.
Couple of problems.
1) In the line activating the sheet you have not specified the workbook extension. (This may not be a problem, depending on your folder settings)
2) You have not given LastRow a value, so it's trying to insert the formula from row 0, which doesn't exist.
Try

Sub Worksheet_S10()

Dim LastRow As Long
'Activate Workbook
Workbooks("Workbook1.xlsm").Activate
'Activate Worksheet
Workbooks("Workbook1.xlsm").Sheets("Sheet1").Activate

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'Categorize as Insured or Uninsured
Range("B10:B" & LastRow).Formula = "=IF(RC[7]>1,""Insured"",""Uninsured"")"




End Sub

 

[BrittKnee]

Great! This worked, thanks!!