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!
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!