Adapt VBA code to clear the related cells instead of update

Hi i have this code that saves changes to a worksheet i want to adapt it to clear the cells. i assume i would need to replace value?

Private Sub btnSaveChanges_Click()

Dim l As Long
Dim lRow As Long
Dim rngTarget As Range

lRow = ActiveWorkbook.Sheets("Active Equip").Range("A56635").End(xlUp).Row

For l = 4 To lRow
Set rngTarget = Sheets("Active Equip").Range("A" & l)
If UserForm2.tbxHospital.Value = rngTarget.Value Then
rngTarget.Offset(, 1).Value = UserForm2.cboTM.Value
rngTarget.Offset(, 2).Value = UserForm2.cboMHCP.Value
rngTarget.Offset(, 4).Value = UserForm2.cboPSQOutcome.Value
rngTarget.Offset(, 5).Value = UserForm2.tbxPSQScore.Value
rngTarget.Offset(, 6).Value = UserForm2.cboProgramme.Value
rngTarget.Offset(, 7).Value = UserForm2.cboReference.Value
rngTarget.Offset(, 8).Value = UserForm2.tbxInstallBase.Value
rngTarget.Offset(, 9).Value = UserForm2.tbxInstallBaseMDT.Value
rngTarget.Offset(, 11).Value = UserForm2.tbxNPNP.Value
rngTarget.Offset(, 12).Value = UserForm2.tbxIndustryInstallBase
rngTarget.Offset(, 15).Value = UserForm2.tbxTotalPumps.Value
If Not UserForm2.TextBoxMeeting.Value = "" Then
rngTarget.Offset(, 16).Value = DateValue(UserForm2.TextBoxMeeting.Value)
End If
rngTarget.Offset(, 17).Value = strNames()
If Not UserForm2.tbxCycle1.Value = "" Then
rngTarget.Offset(, 22).Value = DateValue(UserForm2.tbxCycle1.Value)
End If
If Not UserForm2.tbxCycle2.Value = "" Then
rngTarget.Offset(, 23).Value = DateValue(UserForm2.tbxCycle2.Value)
End If
If Not UserForm2.tbxCycle3.Value = "" Then
rngTarget.Offset(, 24).Value = DateValue(UserForm2.tbxCycle3.Value)
End If
If Not UserForm2.tbxPlannedExit.Value = "" Then
rngTarget.Offset(, 25).Value = DateValue(UserForm2.tbxPlannedExit.Value)
End If

rngTarget.Offset(, 27).Value = UserForm2.cboScheduleExit.Value
rngTarget.Offset(, 29).Value = UserForm2.tbxLeadContact.Value
rngTarget.Offset(, 30).Value = UserForm2.tbxLeadContactNo.Value
rngTarget.Offset(, 31).Value = UserForm2.tbxSecondaryContact.Value
rngTarget.Offset(, 32).Value = UserForm2.tbxSecondaryContactNo.Value
rngTarget.Offset(, 33).Value = UserForm2.tbxComments.Value
End If

Next l
Unload Me


End Sub

Be grateful if someone could advise.

Hi,

You could use = "" or .clear instead of .value

Thanks TC

I have tried clear but receive an expected function or variable error message?

Please Login or Register  to view this content.

ANy ideas?

I think you need:

Please Login or Register  to view this content.

instead of

Please Login or Register  to view this content.

What TC1980 meant was using the following.

Please Login or Register  to view this content.

instead of

Please Login or Register  to view this content.

that works thanks fro replying and helping out.

Sorry Michelle, didn't have access to my usual PC and couldn't remember my details to log in! Glad you're all sorted though.