I am trying to insert the letter "E" into the first empty cell in Column BB on every worksheet in a workbook except Sheet1.
This is what I have so far, but no success in getting it to work. Any help is greatly appreciated.
This is what I have so far, but no success in getting it to work. Any help is greatly appreciated.
Code:
Sub Macro3()
activeCell.FormulaR1C1 = "E"
Range(Selection, Selection.End(xlDown)).Copy Destination:=Dim wsSheet As Worksheet
For Each wsSheet In ThisWorkbook.Worksheets.Range("BB" & Rows.Count).End(xlUp).Offset(1)
End Sub