Hi,
For the life of me this doesnt work, any ideas?
Many thanks
For the life of me this doesnt work, any ideas?
Many thanks
Code:
Sub Clear_Estimated_Hours() Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Delete Estimated Hours" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
thissheet.Range ("V20:V41")
.Range ("AB20:AB41")
.Range ("AH20:AH41")
.Range ("AN20:AN41")
.Range ("AT20:AT41")
.Range ("AZ20:AZ41")
.Range ("BF20:BF41")
.Range ("BL20:BL41")
.Range ("BR20:BR41")
.Range ("BX20:BX41")
.Range ("CD20:CD41")
.Range ("CJ20:CJ41")
.Range ("CP20:CP41")
.Range ("CV20:CV41")
.Range ("DB20:DB41")
.Range ("DH20:DH41")
.Range ("DN20:DN41")
.Range ("DT20:DT41")
.Range ("DZ20:DZ41")
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
End Sub