I have this formula for an Excel worksheet I use to track appointments. It works great but now I need to share it real-time with other members of my organization so I uploaded the workbook to Google sheets but of course, the formula doesn't translate (work).
How can I adjust the formula below to work in Google sheets?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AddRange As Range
Set AddRange = Range("C4:C100") '' Your add appointment range
If Not Intersect(Target, AddRange) Is Nothing Then
If Target.Value <> "Add Appointment" Then
Exit Sub
Else
Range("B" & Target.Row).Value = Range("B" & Target.Row).Value + 1
End If
End If
End Sub
Thank you in advance for your time and effort.