LinkBack URL
About LinkBacks
Sub ClearWorksheetArea()
Dim t As String
t = MsgBox("Are you sure you want to clear the cells. ", vbYesNo)
If t = vbYes Then
Range("A1:I50").Clear
Range("K1").Select
else
end if
End Sub
Sub ClearWorksheetArea()
Dim t As String
t = MsgBox("Are you sure you want to clear the cells. ", vbYesNo)
If t = vbYes Then
Range("A1:I50").Clear
Range("K1").Select
else
end if
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks