Sorry it took so long to get back to you.
Here are two macros that I have for each of the 30+ worksheets that I am using. One saves the info to the hard drive and one clears the typed data. Would like to add one that will clears radio buttons. I still have to input the radio buttons onto the worksheet. Am using check boxes for now.
Sub Clear_Fire()
Range("D6:M6,M5,D12:E12,L22,D24:F24,D28:M28,F30:M30,D32:M32,E35:M35,B37:M37").Select
Selection.ClearContents
Range("D6:M6").Select
End Sub
Sub Save_Fire()
On Error GoTo a
Dim strLocation As String
Dim strName As String
strLocation = ActiveSheet.Range("K41").Value
strName = strLocation & Format$(Now, "yyyy-mm-dd") & "_" & Format$(Now, "hhnn") & "_Fire_Emergency.xls"
With ActiveSheet
.Copy
ActiveWorkbook.SaveAs Filename:=strName
ActiveWorkbook.Close
MsgBox "Data successfully saved!", vbOK, "Fire Emergency"
End With
Exit Sub
a:
MsgBox "An error ocurred"
End Sub
Bookmarks