Mar 5, 2016

VBA Code To Run On Entire Workbook

Below is the code from that only works on one sheet ("1")... I would like it to to work on the entire workbook. Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then If IsDate(Target) Then Sheets("1").Cells(23, 1).Insert Sheets("1").Cells(24, 1) = _ "Pre-Construction Meeting: " & Target.Value Sheets("1").Cells(25, 1).Insert End If End If If Target.Address = "$C$6" Then If IsDate(Target) Then Sheets("1").Cells(23, 1).Insert Sheets("1").Cells(24, 1) = _ "Anticipated Start Date: " & Target.Value Sheets("1").Cells(25, 1).Insert End If End If End Sub

No comments:

Post a Comment