I want to create a Save As dialog box that appears when i click on my label, i have this code below so far but i don't know what to dim my dialog box as, can anyone help as I am new to this?
Dim wkbDataSave As Workbook
Dim strResponse As String
Set wkbDataSave = Application.Workbooks("TeachingPlan.xls"
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.Show.Open
strResponse = CommonDialog1.Filename
wkbDataSave.SaveAs strResponse
Dim wkbDataSave As Workbook
Dim strResponse As String
Set wkbDataSave = Application.Workbooks("TeachingPlan.xls"
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.Show.Open
strResponse = CommonDialog1.Filename
wkbDataSave.SaveAs strResponse