VBA Code to edit and update existing data

[Marsau]

Under my assorted module I had to add "Bookings" to the following:

Sub AddWk()
If Sheet2.Range("K7") = "" Then
Sheet2.Range("K7") = 7
Else
Sheet2.Range("K7") = Sheet2.Range("K7") + 7
End If
Bookings
End Sub


Sub MinusWk()
If Sheet2.Range("K7") = "" Then
Sheet2.Range("K7") = -7
Else
Sheet2.Range("K7") = Sheet2.Range("K7") - 7
End If
Bookings
End Sub


Now that its all working I will Start on creating the User forms this week.