I have a bit of code -
I need some help adding in something like the following as an example. I can't figure out how to get the formula to work with Sheets.Add.Name.
Thank you as always for everyone's generosity.
VBA Code:
strArea = InputBox("Area? (80,82,83,84,87)")
strQtr = InputBox("Quarter? (1,2,3,4)")
If strArea = "80" Then
Area80 strQtr
ElseIf strArea = "82" Then
Area82 strQtr
ElseIf strArea = "83" Then
Area83 strQtr
ElseIf strArea = "84" Then
Area84 strQtr
ElseIf strArea = "87" Then
Area87 strQtr
End If
VBA Code:
If strArea = "80" Then
Area80 strQtr
Create four new worksheets
Sheets.Add.Name = "first "& =Left('Dealer Status'!B4,2)
Sheets.Add.Name = "second" & =Left('Dealer Status'!B4,2)
Sheets.Add.Name = "third" & =Left('Dealer Status'!B4,2)
Sheets.Add.Name = "fourth" & =Left('Dealer Status'!B4,2)
ElseIf strArea = "82" Then
Area82 strQtr
Create eight new worksheets
Sheets.Add.Name = "first "& =Left('Dealer Status'!C5,3)
Sheets.Add.Name = "second" & =Left('Dealer Status'!C5,3)
Sheets.Add.Name = "third" & =Left('Dealer Status'!C5,3)
Sheets.Add.Name = "fourth" & =Left('Dealer Status'!C5,3)
Sheets.Add.Name = "first "& =Left('Dealer Status'!C5,14)
Sheets.Add.Name = "second" & =Left('Dealer Status'!C5,14)
Sheets.Add.Name = "third" & =Left('Dealer Status'!C5,14)
Sheets.Add.Name = "fourth" & =Left('Dealer Status'!C5,14)
Thank you as always for everyone's generosity.